|
Inventor VBA : File bei SaveAs nicht überschreiben
RODER am 20.08.2011 um 07:36 Uhr (0)
Hallo NancyHabs im moment so gelöst, dass ich wenn das File schon besteht dieAuswahl gebe überschreiben oder nicht.Weil wenn die Zeichnung richtig bezeichnet ist besteht das PDF davon noch nicht oder es gehört überschrieben.Allerdings kommt es in der Hitze des gefechtes schon mal vor, das z.B. der Änderungsindex im Dateinamen nochnicht angepasst worden ist und schon jemand ein PDF machen will. Deher muss ich es abfangen können.----If fso.fileexists(outFile) Then MsgBox "Datei existiert bereits, bitt ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : File bei SaveAs nicht überschreiben
RODER am 19.08.2011 um 09:12 Uhr (0)
Hallo NancyDanke für diese Codezeile!Damit kann ich abfangen ob die Datei schon besteht.Ist mal wieder eine Weile her, seit ich im VBA rumprogrammiert habe und da istalles seither irgendwo in den kleinen grauen Zellen verstaubt Allerdings währe es erste Sahne wenn ich es nicht nur abfangen könnte, sondern gleich in den"Speicher unter" Dialog reinspringen könnte.Habe nun den Umweg über eine msgBox und die Auswertung der Antwort gewählt, so kann ichimmer noch dem Benutzer überlassen ob er überschreiben will ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : File bei SaveAs nicht überschreiben
RODER am 18.08.2011 um 13:18 Uhr (0)
Hallo ZusammenHabe mir ein kleies Script zusammengestellt, welches mir nach ein paar anderen Schritteneine Zeichnung als PDF speichert.So weit funktionniert das auch, nun möchte ich aber nicht, dass mir einvorhandenes File (mit dem selben Namen) automatisch überschrieben wird.Ich möchte in dem Fall die selbe Frage gestellt bekommen wie wenn ich manuelleine Datei "Speicher unter" wähle und die schon besteht.Hier mal ein Teil vom Code: Dim oContext As TranslationContext Set oContext = ThisApplication.Trans ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : Druck-Makro mehrseitige Zeichnungen
RODER am 19.08.2011 um 11:03 Uhr (0)
HalloHier mal ein Teil von meine Code:Check number of Pages Dim NumPages As Integer NumPages = dDoc.Sheets.Count Dim s As Integer s = 1 Dim byWert As Byte Sheet Number 1 If NumPages 1 Then Create File Name and Path If Len(Trim(dDoc.FullFileName)) 0 Then outFile = fso.GetParentFolderName(dDoc.FullFileName) & "" & fso.GetBaseName(dDoc.FullFileName) & " Blatt 1" & ".pdf" Set Activ Sheet to Sheet Number s dDoc.Sheets(s). ...
| | In das Form Inventor VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
